0 REM COPYRIGHT 1994 COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
10 CLR:GOSUB110
20 FORX=QTO700:READY:POKEX,Y:NEXT:POKE53280,.:POKE53281,.
30 DV=8:REM DEV # IS 8
40 GOSUB750
50 PRINT"[147]"SPC(14)"[159]GROCERY LIST
60 [153]"1SYS INITIALIZE SHOPPING LIST"RT$"2SYS MODIFY GROCERY LIST
70 PRINT"3[158] PRINT/DISPLAY CURRENT SHOPPING LIST"RT$"4[158] EXIT
80 L[178]17:[141]140:[158]Q,.,17:[153]"WELL?"
90 [146]198,15:[161]X$:[139]X$[179]"1"[176]X$[177]"4"[167]80
100 [145][197](X$)[137]870,150,1000,1240:[137]50
110 [151]49,[194](47):[151]50,[194](48):RT$[178][199](13):DN$[178][199](17):F$[178]"GL.LIST
120 Q=679:NI=450:NC=15:DIMX$,A,B,C,D,E,L,PX,U,V,X,Y,Z,Z$
130 DIMIT$(NI),CP%(NI),CT$(NC):RETURN
140 POKE781,L:SYS59903:RETURN
150 PX=1:GOSUB180
160 PRINT"[147]SAVE FILE TO DISK(Y/N)":WAIT198,15:GETX$:IFX$="Y"THEN820
170 GOTO50
180 PRINT"[147]":FORX=1TONC:IFCT$(X)=""THENCT$(X)="NONE"
190 PRINT""CT$(X):NEXT
200 SYSQ,13,21:PRINT"RETURN[158] TO EXIT
210 [158]Q,7,22:[153]"CURSOR DOWNSYS TO MOVE CURSOR
220 SYSQ,2,23:PRINT"[158]CHANGE CATEGORY N[158]AME, S[158]ELECT CATEGORY
230 X[178]PX:E[178]PX[171]1:[139]E[178].[167]E[178]15
240 L[178]1:[141]140
250 A[178]E[170]2:B[178]X[170]2:[158]Q,.,B:[153]""CT$(X)"WAIT":[158]Q,.,A:[153]""CT$(E)
260 [146]198,15:[161]X$:[139]X$[178]RT$[167][142]
270 [139]X$[178]"N"[167]310
280 [139]X$[178]"S"[167]PX[178]X:[141]370:[137]180
290 [139]X$[178]DN$[167]E[178]X:X[178]X[170]1:[139]X[178]16[167]X[178]1
300 [137]240
310 PX[178]X:X$[178]"":L[178]1:[141]140:[133]"NEW NAME";X$:[139]X$[178]""[167]240
320 X$[178][200](X$,36):CT$(X)[178]X$:L[178]X[170]2:[141]140:[158]Q,.,L:[153]CT$(X)
330 L[178]1:[141]140:[153]"INITIALIZE FOOD NAMES IN CATEGORY(Y/N)?
340 WAIT198,15:GETX$:IFX$="Y"THEN360
350 GOTO240
360 A=30*(X-1)+1:B=A+29:FORY=ATOB:IT$(Y)="NONE":CP%(Y)=.:NEXT:GOTO240
370 A=30*(X-1)+1:B=A+15:C=A+29:V=(40-LEN(CT$(X)))/2-1
380 PRINT"[147]":SYSQ,V,1:PRINT"[159]"CT$(X):V=4:U=.:FORY=1TO30:V=V+1:D=A+Y-1
390 IFY=16THENU=19:V=5
400 IFY>30THEN420
410 GOSUB690
420 NEXT:SYSQ,7,21:PRINT"CURSOR DOWN[158] TO MOVE CURSOR
430 [158]Q,6,22:[153]"RETURNSYS TO EXIT,  CHANGE NSYSAME
440 SYSQ,3,23:PRINT"C[158] TO TOGGLE COUPON, B[158] TO TOGGLE BUY
450 Y[178]1:E[178]30:[141]620
460 D[178]A[170]Y[171]1:[146]198,15:[161]X$:[139]X$[178]RT$[167][142]
470 [139]X$[178]DN$[167]600
480 [139]X$[178]"C"[167]520
490 [139]X$[178]"B"[167]540
500 [139]X$[178]"N"[167]570
510 [137]460
520 [139]CP%(D)[178].[176]CP%(D)[178]2[167]CP%(D)[178]CP%(D)[170]1:[137]560
530 CP%(D)[178]CP%(D)[171]1:[137]560
540 [139]CP%(D)[179]2[167]CP%(D)[178]CP%(D)[170]2:[137]560
550 CP%(D)[178]CP%(D)[171]2
560 [141]690:[141]620:[137]460
570 X$[178]"":L[178]3:[141]140:[133]"NEW NAME";X$:[139]X$[178]""[167]590
580 X$[178][200](X$,16):IT$(D)[178]X$
590 L[178]3:[141]140:[137]610
600 E[178]Y:Y[178]Y[170]1:[139]Y[178]31[167]Y[178]1
610 [141]620:[137]460
620 [139]E[177]15[167]V[178]E[171]11:U[178]19:[137]640
630 V[178]E[170]4:U[178].
640 [141]680:[158]Q,U,V:[153]""IT$(A[170]E[171]1)"
650 IFY>15THENV=Y-11:U=19:GOTO670
660 V=Y+4:U=.
670 GOSUB680:SYSQ,U,V:PRINT""IT$(A+Y-1)"[146]":RETURN
680 SYSQ,U,V:PRINT"                ":RETURN
690 SYSQ,U,V:IFCP%(D)=.ORCP%(D)=2THENPRINT" ";:GOTO710
700 PRINT"$";
710 IFCP%(D)<2THENPRINT" ";:GOTO730
720 PRINT"*";
730 IFIT$(D)=""THENIT$(D)="NONE"
740 PRINT""IT$(D):RETURN
750 PRINT"[147]LOADING GROCERY FILE...
760 [159]2,DV,2,F$[170]",P,R":[160]2:[159]15,DV,15:[132]15,Z,Z$:[160]15
770 [139]Z[178]62[167][142]
780 S$[178]F$[170]",S,R":[159]8,DV,8,S$
790 [129]X[178]1[164]NI:[132]8,IT$(X):[132]8,CP%(X):[130]
800 [129]X[178]1[164]NC:[132]8,CT$(X):[130]
810 [160]8:[142]
820 [158]Q,.,17:[153]"SAVING...
830 S$="@0:"+F$+",S,W":OPEN8,DV,8,S$
840 FORX=1TONI:IFIT$(X)=""THENIT$(X)="NONE"
850 PRINT#8,IT$(X);RT$;CP%(X):NEXT
860 FORX=1TONC:PRINT#8,CT$(X):NEXT:CLOSE8:GOTO50
870 X$="":SYSQ,.,17:PRINT"C[158]OUPONS, FOODS S[158]ELECTED, B[158]OTH, OR F[158]ILE
880 [146]198,15:[161]X$:[139]X$[178]RT$[167]80
890 [139]X$[178]"B"[167][129]Y[178]1[164]NI:CP%(Y)[178].:[130]:[137]80
900 [139]X$[178]"C"[167]940
910 [139]X$[178]"S"[167]970
920 [139]X$[178]"F"[167][141]110:[137]80
930 [137]880
940 [129]Y[178]1[164]NI:[139]CP%(Y)[178].[176]CP%(Y)[178]2[167]960
950 CP%(Y)[178]CP%(Y)[171]1
960 [130]:[137]80
970 [129]Y[178]1[164]NI:[139]CP%(Y)[179]2[167]990
980 CP%(Y)[178]CP%(Y)[171]2
990 [130]:[137]80
1000 [158]Q,.,17:[153]"PSYSRINT OR DSYSISPLAY?
1010 WAIT198,15:GETX$:IFX$=RT$THEN80
1020 IFX$="D"THEN1140
1030 IFX$="P"THEN1050
1040 GOTO1010
1050 L=17:GOSUB140:SYSQ,.,17:PRINT"PRINTING...
1060 E[178]1:[159]4,4,0:[129]X[178]1[164]NC:V[178](74[171][195](CT$(X)))[173]2[171]1:A[178].:B[178]30[172](X[171]1)[170]1:C[178]30[172]X
1070 [129]Y[178]B[164]C:[139]CP%(Y)[179]2[167]1130
1080 D[178]25[171][195](IT$(Y))
1090 [139]A[178].[167][152]4:[152]4:[152]4,[166]V)" "CT$(X)" WAIT":[152]4:A[178]1
1100 [139]CP%(Y)[178].[176]CP%(Y)[178]2[167][152]4," ";:[137]1120
1110 [152]4,"$";
1120 [152]4,IT$(Y)[166]D);:E[178]E[170]1:[139]E[178]4[167][152]4:E[178]1
1130 [130]:E[178]1:[130]:[152]4:[160]4:[137]50
1140 E[178]1:[129]X[178]1[164]NC:V[178](40[171][195](CT$(X)))[173]2[171]1:A[178].:B[178]30[172](X[171]1)[170]1:C[178]30[172]X
1150 [129]Y[178]B[164]C:[139]CP%(Y)[179]2[167]1200
1160 D[178]18[171][195](IT$(Y)):[139]A[178].[167][153]"LOAD"[166]V)"OPEN"CT$(X)"":A[178]1
1170 [139]CP%(Y)[178].[176]CP%(Y)[178]2[167][153]" ";:[137]1190
1180 [153]"$";
1190 [153]""IT$(Y)[166]D);:E[178]E[170]1:[139]E[178]3[167][153]:E[178]1
1200 [130]:E[178]1:[139]A[178].[167]1230
1210 [158]Q,2,23:[153]"SYSHIT ANY KEY TO CONTINUE, QSYS TO QUIT
1220 WAIT198,15:GETX$:IFX$="Q"THENX=NC
1230 NEXT:GOTO50
1240 SYSQ,.,17:PRINT"REALLY EXIT?":WAIT198,15:GETX$:IFX$="Y"THENSYS64738
1250 GOTO80
1260 DATA32,182,2,134,176,32,182,2,164,176,24,32,240,255,96,32,253,174,32,158
1270 DATA183,96